home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / ee26.exe / evil / aliases.ini < prev    next >
Encoding:
INI File  |  1997-03-06  |  14.0 KB  |  262 lines
  1. [Aliases]
  2. n0=f1 /run notepad c:\evil\help.txt
  3. n1=f2 /ignore *
  4. n2=f3 /ignore -r *
  5. n3=f4 echo 4 You were last flooded by %flooder on %floodtime $+ .  A %ignoretime second ignore was set for 8,4( %ignore ) $+ . | echo 4 If this was a mistake, you can remove the ignore with shift+f4, press ctrl+f4 to kick/ban this person 
  6. n4=sf4 ignore -r %ignore
  7. n5=cf4 /kick $active %flooder [flooder] $read c:\evil\flood.txt [flooder]
  8. n6=f5 { 
  9. n7=  awaya $?="away message" 
  10. n8=  set %amsg $!
  11. n9=  if %amsg == $null { echo 4 -a no away message entered - halted | halt }
  12. n10=  else /timea
  13. n11=} 
  14. n12=f6 /back | timer 1 5 set %page1 0 | timer 1 5 set %page1 0 | timeoff | timer100 off
  15. n13=f7 /join %ichan
  16. n14=f8 /kick $active %inick [inviter]
  17. n15=f9 .ignore %inick 3
  18. n16=/iban /write -s $+ $1 bans.txt $1 *2 | /guser =99 $1
  19. n17=/lban {
  20. n18=  write -s $+ %bmask bans.txt %bmask %breason
  21. n19=  guser =99 %bmask
  22. n20=  echo 4 # Smart iBan added for: %bmask Reason: %breason
  23. n21=  unset %bmask
  24. n22=  unset %breason
  25. n23=}
  26. n24=fk {
  27. n25=  mode # -o $$1 | ban -u60 $$1 2 | ban $$1 3 | %cloned = $$1 | kick # $$1 $read c:\evil\tag.txt [filter kick]
  28. n26=  %i = 0 | %c = 0 | %addkick = $address($$1,2) | %i = 0 | :adkick | inc %i | if (%i > $nick(0,#)) { halt } | if (%addkick == $address($nick(%i,#),2)) { inc %c | kick $chan $nick(%i,#) $read c:\evil\tag.txt [filter kick] | goto adkick } | else { goto adkick }
  29. n27=}
  30. n28=/voteover {
  31. n29=  disable #vote
  32. n30=  say eViL eMpiRe VotinG
  33. n31=  say [[Voting Topic: %vtopic $+ ]]
  34. n32=  say [[ $+ %yes Said YES]]
  35. n33=  say [[ $+ %no Said NO]]
  36. n34=  unset %v*
  37. n35=  rlevel -r 3
  38. n36=}
  39. n37=ckick { set %i 0 | :start | inc %i | if ($channel(%i) == $null) goto end | if $1 ison $channel(%i) goto next | goto start | :next | if $me isop $channel(%i) kick $channel(%i) $1 *2 | goto start | :end }
  40. n38=cban { set %i 0 | :start | inc %i | if ($channel(%i) == $null) goto end | if $1 ison $channel(%i) goto next | goto start | :next | if $me isop $channel(%i) ban $channel(%i) $1 3 | goto start | :end } 
  41. n39=listclones { unset %add | set %cl 0 | set %num 0 | if (%silent == off ) set %raw msg # | if (%silent == on ) set %raw echo 6 # | %raw %h Clone(s) Information for ò $+ # $+ ò | set %cl 0 |  :mid | inc %cl | %temp = $nick(%cl,#) | if (%temp == $null) { %raw %h Total Number of Clones: ò $+ %num $+ ò | halt } | %newadd = $address(%temp,4) |  if (%newadd isin %add) { inc %num | %raw %h [Clone %num $+ ] $address(%temp,1) | goto mid } | set %add %add %newadd | goto mid }
  42. n40=kickclones { %message = Clones | if ($1 != $null) %message = *1 | unset %add | set %cl 0 | set %num 0 | :mid | inc %cl | %temp = $nick(%cl,#) | if (%temp == $null) halt | %newadd = $address(%temp,4) | if (%newadd isin %add) { inc %num | kick # %temp %message | goto mid } | set %add %add %newadd | goto mid }
  43. n41=banclones { %message = Banned: Clones | if ($1 != $null) %message = *1 | unset %add | set %cl 0 | set %num 0 | set %cl 0 | :mid | inc %cl | %temp = $nick(%cl,#) | if (%temp == $null) { halt } | %newadd = $address(%temp,4) | if (%newadd isin %add) { inc %num | mode # +b $address(%temp,3) | kick # %temp %message | goto mid } | set %add %add %newad | goto mid }
  44. n42=ccheck {
  45. n43=  set %v 0 | set %cadd $address($2,2) | :start | inc %v | if ($nick(%v,$1) == $null) halt | if ($nick(%v,$1) == $me) goto start | if ($2 == $nick(%v,$1)) goto start | if (%cadd == $address($nick(%v,$1),2)) { echo 4 $active %h Clone from  $+ $2 $+  at $remove(%cadd,*!*) detected on  $+ $1 $+  at %time1 $+ , matching user ( $+ $nick(%v,$1) $+ ! $+ $remove($address($nick(%v,$1),2),*!*) $+ )
  46. n44=  if (%autokick == on) { echo 4 $active %h Autokicking  $+ $2 $+  from  $+ $1 $+ ... | if $2 !isop $1 kick $1 $2 %clonemsg | goto start } | echo 4 $active %h To kick  $+ $2  $+  from  $+ $1 $+  press F9, to kickban press shift+F9  | set %cnick $2 | set %cchan $1 | goto start } | goto start
  47. n45=}
  48. n46=/i /invite $1 $2
  49. n47=/w /whois $1
  50. n48=awaya { if ($1 == $null) { set %away off | away | .timer100 off | if %page1 > 0) run notepad c:\evil\msg.txt | goto end } | set %away on | away *1 | if (%pager == on) ame is away [ $+ *1 $+ ] pager[4ON] '4/CTCP $me PAGE <message>' | if (%pager == off) ame is away [ $+ *1 $+ ] pAGER[4OFF]  | .timer100 0 600 /ame is away [ $+ *1 $+ ] pAGER[4 $+ $upper(%pager) $+ ] | :end }
  51. n49=back { if ($1 == $null) ame has returned. aWAY fOR ( $+ %ah $+ h\ $+ %amin $+ m) | if ($1 != $null) ame is back, [ $+ *1 $+ ] aWAY fOR ( $+ %ah $+ h\ $+ %amin $+ m) | set %away off | away | .timer100 off | if %page1 > 0 { run notepad c:\evil\msg.txt } }
  52. n50=timea { .timer2050 0 60 /mina | %amin = 0 | %ah = 0 }
  53. n51=mina { 
  54. n52=  inc %amin 1 | away %amsg ( $+ %ah $+ h\ $+ %amin $+ m) pAGER[4 $+ $upper(%pager) $+ ]
  55. n53=  if (%amin = 60) { set %ah 1 | set %amin 0 }
  56. n54=}
  57. n55=timeoff { .timer2050 off }
  58. n56=midi { 
  59. n57=  set %midicomment  
  60. n58=  set %midifile 
  61. n59=  set %midifile $dir="Select MIDI or WAV to play "  *.*
  62. n60=  set %midifile2 $nopath(%midifile)
  63. n61=  set %midiget $nofile(%midifile)
  64. n62=  set %midicomment $?="Comment for MIDI or WAV Press Cancel for None:" 
  65. n63=  set %midisize $lof(%midifile ) 
  66. n64=}
  67. n65=c0 set %code  | set %codekey publiccode | set %codecolor 2 | c1 *1
  68. n66=c1 {
  69. n67=  if (*1 == $null) { unset %code* | halt }
  70. n68=  if (%code != ) { set %code ╫ | set %codekey privatecode | set %codecolor 4 }
  71. n69=  set %codepos $len(*1)
  72. n70=  :code
  73. n71=  set %code %code $+ $mid($asc($mid(%codepos,1,*1)),1,% [ $+ [ %codekey ] ] )
  74. n72=  dec %codepos 1
  75. n73=  if (%codepos != 0) { goto code }
  76. n74=  say ╫ $+ %code
  77. n75=  echo %codecolor > ╫ $+ $left(1,%code) $+ *1
  78. n76=  unset %code*
  79. n77=}
  80. n78=key {
  81. n79=  echo 4 $active *** Creating code variables . . .
  82. n80=  set %key $$?="Number (1-90)?"
  83. n81=  if (($$! < 1) || ($$! > 90)) {
  84. n82=    echo 4 $active *** Please enter a number between 1 and 90.
  85. n83=    unset %key
  86. n84=    halt
  87. n85=  }
  88. n86=  %setcode = $$! + 33 | set %setlimit 90 | set %privatecode ""
  89. n87=  :setcodeA
  90. n88=  set %privatecode %privatecode $+ $chr(%setcode)
  91. n89=  dec %setlimit 1 | inc %setcode 1
  92. n90=  if (%setcode != 123) { goto setcodeA }
  93. n91=  set %setcode 161
  94. n92=  :setcodeB
  95. n93=  set %privatecode %privatecode $+ $chr(%setcode)
  96. n94=  dec %setlimit 1 | inc %setcode 1
  97. n95=  if (%setlimit != 0) { goto setcodeB }
  98. n96=  set %privatecode $str(32,$chr(160)) $+ %privatecode
  99. n97=  %setdecode = 123 - $$! | set %setlimit 90 | set %privatedecode ""
  100. n98=  :setdecodeA
  101. n99=  set %privatedecode %privatedecode $+ $chr(%setdecode)
  102. n100=  dec %setlimit 1 | inc %setdecode 1
  103. n101=  if (%setdecode != 123) { goto setdecodeA }
  104. n102=  set %setdecode 33
  105. n103=  :setdecodeB
  106. n104=  set %privatedecode %privatedecode $+ $chr(%setdecode)
  107. n105=  dec %setlimit 1 | inc %setdecode 1
  108. n106=  if (%setlimit != 0) { goto setdecodeB }
  109. n107=  set %privatedecode $str(32,$chr(160)) $+ %privatedecode
  110. n108=  unset %set*
  111. n109=  echo 4 $active *** Done . . . code key is $$! $+ .
  112. n110=}
  113. n111=mykey if (%key == $null) { key } | else { echo 4 $active *** Code key is %key $+ . }
  114. n112=setupcode {
  115. n113=  set %setpublic 161 | set %publiccode ""
  116. n114=  :setupA
  117. n115=  set %publiccode %publiccode $+ $chr(%setpublic)
  118. n116=  inc %setpublic 1
  119. n117=  if (%setpublic != 253) { goto setupA }
  120. n118=  set %publiccode $str(32,$chr(160)) $+ %publiccode | set %setpublic 33 | set %publicdecode ""
  121. n119=  :setupB
  122. n120=  set %publicdecode %publicdecode $+ $chr(%setpublic)
  123. n121=  inc %setpublic 1
  124. n122=  if (%setpublic != 123) { goto setupB }
  125. n123=  set %publicdecode $str(32,$chr(160)) $+ %publicdecode
  126. n124=  key
  127. n125=}
  128. n126=find {
  129. n127=  %show = echo 4 $active
  130. n128=  set %add $address($$1,2)
  131. n129=  set %add1 $len(%add)
  132. n130=  set %add2 %add1 - 4
  133. n131=  set %add3 $right(%add2,%add)
  134. n132=  who %add3 | /enable #find
  135. n133=}
  136. n134=scan {
  137. n135=  %active $read c:\evil\tag.txt Channel Scan on  #$$1 initiated !  
  138. n136=  init_scan_vars
  139. n137=  set %ppl 0
  140. n138=  set %scn #$$1
  141. n139=  who #$$1
  142. n140=}
  143. n141=showclone {
  144. n142=  set %i 0 | set %d 1 |  set %nclns "" | set %clns 0 
  145. n143=  :incaddy
  146. n144=  inc %i 1 | if (%i >= %ptr) { goto end }
  147. n145=  set %scanaddy $token(%i,32,%clist) | set %clone $token(%i,32,%nlist)  
  148. n146=  :incaddy1
  149. n147=  inc %d 1 | if (%d = %i) { inc %d 1 } |  if (%d > %ptr) { set %d 0 | goto incaddy }
  150. n148=  set %scanaddy1 $token(%d,32,%clist) | set %clone1 $token(%d,32,%nlist)
  151. n149=  if  (%scanaddy = %scanaddy1) {
  152. n150=    if (%clns = 0) { 
  153. n151=      if (%clone != %clone1) {
  154. n152=        %nclns = %nclns %clone | inc %clns 1 | %nclns = %nclns %clone1 | inc %clns 1 
  155. n153=      }
  156. n154=      else {
  157. n155=        %nclns = %nclns %clone1 | inc %clns 1 
  158. n156=      }
  159. n157=    }
  160. n158=    else {
  161. n159=      if (%clone !isin %nclns) { %nclns = %nclns %clone | inc %clns 1 }
  162. n160=      if (%clone1 !isin %nclns) { %nclns = %nclns %clone1 | inc %clns 1 }
  163. n161=    }
  164. n162=  }  
  165. n163=  goto incaddy1
  166. n164=  :end
  167. n165=  report
  168. n166=}
  169. n167=init_scan_vars {
  170. n168=  set %op 0 | set %opn "" | set %nop 0 | set %nopn ""
  171. n169=  set %appl 0  | set %appln "" | set %vppl 0 | set %vppln ""
  172. n170=  set %ircop 0 | set %ircopn "" | set %nicky DonDon |  set %enemy 0 | set %enemyn ""
  173. n171=  set %clns 0 |  set %nclns "" | set %nlist "" | set %clist 0 |  set %clist "" | set %ptr 0
  174. n172=  set %botnick "" | set %bot 0
  175. n173=  return 1
  176. n174=}
  177. n175=clear_chan_vars {
  178. n176=  unset %op | unset %opn | unset %nop  | unset %nopn 
  179. n177=  unset %appl | unset %appln | unset %vppl | unset %vppln 
  180. n178=  unset %ircop  | unset %ircopn | unset %enemy | set %enemyn
  181. n179=  unset %clns | unset %nclns | unset %nlist | unset %clist | unset %clist | unset %ptr
  182. n180=  unset %botnick | unset %bot| unset %scantype | unset %scn | unset %names | unset %adrs 
  183. n181=  unset %clones | unset %length | unset %whonick | unset %d | unset %scanaddy | unset %clone
  184. n182=  unset %scanaddy1 | unset %clone1 | unset %ppl | unset %addy | unset %i | unset %bot | unset %nicky
  185. n183=  return 1 
  186. n184=}
  187. n185=report {
  188. n186=  if %active = $null set %active echo 3 %scn
  189. n187=  %active *** %nicky Channel Stats for %SCN engaged **
  190. n188=  %active Total Users on %Scn : %ppl  
  191. n189=  if (%ircop != 0) { %active IRCops Name(s): %ircopn | %active ToTal IRCops: %ircop } | else { %active No IRCops on %scn }
  192. n190=  if (%op >= 6) { %active ToTal Ops: %op | %active Too Many Ops To List }
  193. n191=  elseif (%op != 0) { %active Ops Name(s): %opn | %active ToTal Ops: %op } 
  194. n192=  elseif (%op == 0) { %active No ops !! Everyone leave , first one back gets OPS !! }
  195. n193=  if (%clns != 0) { %active Clone Name(s): %nclns | %active ToTal Clones: %clns } 
  196. n194=  if (%enemy != 0) { %active Enemy Name(s): %enemyn | %active ToTal Enemies: %enemy }
  197. n195=  if (%appl != 0) { %active Away Name(s): %appln | %active ToTal Nicks marked Away: %appl } 
  198. n196=  if (%vppl != 0) { %active Voiced Name(s): %vppln | %active ToTal Nicks Voiced: %vppl  }
  199. n197=  if (%nop >= 6) { %active Total NonOps: %nop | %Active Too many Nonops To list -) } 
  200. n198=  elseif (%nop != 0) { %active NonOps Name(s): %nopn  | %active Total NonOps: %nop } 
  201. n199=  elseif (%nop == 0) { %active All OPS ! in %scn , Lets Party =) }
  202. n200=  %active *** End of $read c:\evil\tag.txt Channel Stats ***
  203. n201=  clear_chan_vars
  204. n202=  echo Channel Variables Cleared !
  205. n203=}
  206. n204=d.online { %secs = [ $ctime - $1 ] | %days = [ %secs / 86400 ] | %dsecs = [ %days * 86400 ] | %secs  = [ %secs - %dsecs ] | %hours = [ %secs /  3600 ] | %hsecs = [ %hours * 3600 ] | %secs = [ %secs - %hsecs ] | %mins = [ %secs / 60 ] | %msecs = [ %mins * 60 ] | %secs = [ %secs - %msecs ] | unset %mtsecs %hsecs %dsecs %msecs | return 1 }
  207. n205=rtime { if ($token(1,58,$time) > 12) { %hour = [ $token(1,58,$time) - 12 ] | %day = pm } | else { %hour = $token(1,58,$time) | %day = am | if (%hour = 0) { %hour = 12 } } | set %time %hour $+ $chr(58) $+ $token(2,58,$time) %day | unset %hour %day | return 1 }
  208. n206=check_repeat {
  209. n207=  set %repeattext  %  [ $+ [ $nick $+ words ] ] 
  210. n208=  if ($parms == %repeattext) { ban -u15 $chan $nick 3 | kick $chan $nick $read c:\evil\tag.txt  Don't Repeat ! | unset % $+ $nick $+ words | unset % $+ $nick $+ time | unset %repeattext | halt }
  211. n209=  unset %repeattext | return 1
  212. n210=}
  213. n211=remflood {
  214. n212=  if (($1 == $null) || ($2 == $null)) { echo Insufficiant parameters, you don't gotta do this anyways... | halt }
  215. n213=  set %flood $+ $1 $remove(%flood $+ $$1,$2)
  216. n214=}
  217. n215=cbans { .enable #massunban | %readban = 1 | echo 4 -a $bb1 Performing Mass Unban On %bl !! $bb2 | mode # +b }
  218. n216=/rose /say 4,1 @3}--}--4 $1 3--{--{4,1@1,1a
  219. n217=/antiidle set %idlechan & $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(a,z) | /join %idlechan | //mode %idlechan +ntsi | /timer69 0 30 /describe %idlechan eViL eMpiRe -=[aNTi iDLe]=-
  220. n218=/unanti timer69 off | part %idlechan
  221. n219=/r {
  222. n220=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  223. n221=  :loop
  224. n222=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  225. n223=  inc %p
  226. n224=  if ( $mid(%p,1,%i) != á) { inc %c }
  227. n225=  if ( %c > 6 ) { set %c 1 }
  228. n226=  if ( $mid(%p,1,%i) != $null ) { goto loop }
  229. n227=  say %o
  230. n228=  unset %o %i %p %c
  231. n229=}
  232. n230=/on /onotice [opZ on # $+ ] *1
  233. n231=/mj  {
  234. n232=  set %texxt *1 
  235. n233=  set %lentxt $len(%texxt)
  236. n234=  /say 0,15 $+ $str(%lentxt,_) 
  237. n235=  /say 1,15 $+ %texxt $+ 1 
  238. n236=  /say 1,15 $+ $str(%lentxt,») 
  239. n237=}
  240. n238=/mh {
  241. n239=  set %textk *1
  242. n240=  set %lenk $len(%textk)
  243. n241=  say 4,4 %textk 2
  244. n242=  say 0,4 %textk 1,1@
  245. n243=  say 4,4 %textk $+ 2 1,1 
  246. n244=  say 1 1,1 $+ %textk $+ 1,1@@
  247. n245=}
  248. n246=/floodnick {
  249. n247=  set %f 0 | /set %address $address($newnick,2)
  250. n248=  :do
  251. n249=  inc %f 1
  252. n250=  if $channel(%f) == $null goto end
  253. n251=  if ($nick isop $chan) { halt }
  254. n252=  if $newnick ison $channel(%f) {
  255. n253=    mode $channel(%f) +b %address
  256. n254=    ban -u20 $channel(%f) $nick 3 | kick $channel(%f) $newnick [nick flood] $read c:\evil\flood.txt [nick flood]
  257. n255=  }
  258. n256=  goto do
  259. n257=  :end
  260. n258=  unset %f %address
  261. n259=}
  262.